home *** CD-ROM | disk | FTP | other *** search
/ PC Advisor 1999 December / PC Advisor 1999-12 Issue 51 CD.iso / draw / Draw 4 tl / data1.cab / Prog_(US) / DES_PS.PRE < prev    next >
Encoding:
Text File  |  1999-07-21  |  27.6 KB  |  1,121 lines
  1. %-----------------------------------------------------------------------------
  2. % 9999.17 GST 194 - PostScript Preamble file for GST DesignWorks
  3. %-----------------------------------------------------------------------------
  4. % This file is inserted as the prolog when Artwork saves an EPSF file.
  5. % The program generates the initial structure comments required by EPSF
  6. % and strips comments from this file as it merges it into its output.
  7. % The main part of the job is put between the 'EndSetup' and 'Trailer' lines.
  8. %-----------------------------------------------------------------------------
  9. % Naming conventions: 
  10. % Names in all lowercase are executable procedures, like built-in postscript
  11. % procedures. Names with the first letter capitalised are variables. Names 
  12. % ending in a question mark are boolean: they can have values T or F
  13. %-----------------------------------------------------------------------------
  14. % 0.30 18.Aug.98
  15. % add calligraphic lines for dwk4
  16. %
  17. % 0.29 1.July.94
  18. % as shipped with dwk2, 2.5, 3, 3.5
  19. %
  20. % NOTE: comments are stripped before printing!
  21. %-----------------------------------------------------------------------------
  22. %
  23. % ArtProcsDict contains all the procedures defined in this prolog
  24. % and must also have enough room for special postscript fill & line style procs.
  25. % ArtVarsDict contains all the variables etc used by the procedures.
  26.  
  27. /ArtProcsDict 160 dict def  
  28. /ArtVarsDict 100 dict def  
  29.  
  30. %---- optional jobtimeout 
  31. ArtVarsDict begin 
  32.    /Timeout 0 def 
  33. end
  34.  
  35. ArtProcsDict begin
  36.  
  37. %----- abbreviations -----%
  38.  
  39.  /bd { bind def } bind def
  40.  /ed { exch def } bd
  41.  /np /newpath load def
  42.  /cp /closepath load def
  43.  /gs { /SavePrint? Print? def gsave } bd
  44.  /gr { /Print? SavePrint? def grestore } bd
  45.  
  46.  /SS{}def
  47.  /RS{}def
  48.  /SM{}def
  49.  
  50. %----- misc tiny routines -----%
  51.  
  52. % specialscreen? returns YES if screen frequency <= 30
  53.  /specialscreen? { currentscreen pop pop 30 lt } bd
  54.  /min{2 copy gt{exch}if pop}bd % minimum of top 2 items on stack
  55.  /max{2 copy lt{exch}if pop}bd % maximum ditto
  56.  /maxof4 { 3{max}repeat } bd
  57.  /pt { 1000 mul 72 div } bd % converts points
  58.  /beginlayer { pop /LayerSave save def } bd %% layer number ignored
  59.  /endlayer { LayerSave restore } bd
  60.  
  61.  
  62. %----- path construction -----%
  63.  
  64. % P: adjusts positions of thin lines 
  65.  /p { transform round .4 add exch round .4 add exch itransform } bd
  66.  /c { p curveto } bd /m { p moveto } bd /l { p lineto } bd
  67.         
  68.  
  69. %---------- Colour handling ----------%
  70. %
  71. % define setcmykcolor if not implemented in printer. 
  72.  
  73. /mysetcmykcolor { % convert CMYK to RGB for monochrome printer
  74.   4 1 roll
  75.   3 {
  76.     3 index add 1 exch sub
  77.     dup 0 lt{pop 0}if
  78.     3 1 roll
  79.   } repeat
  80.   setrgbcolor pop
  81. } bd
  82.  
  83. /initcmykcolor {
  84.   /setcmykcolor where dup
  85.   /BwPrinter? exch not def
  86.   { 
  87.     pop 
  88.   }{
  89.     /setcmykcolor /mysetcmykcolor load def
  90.   } ifelse
  91. } bd
  92.  
  93.  
  94. %----- SETCMYK -----%
  95. % 
  96. % setcmyk is a low-level routine, called whether or not the 
  97. % printer supports colour.
  98. % It is at this level that we perform process colour separation.
  99. % We save the current CMYK setting, and routine currentcmyk can
  100. % be called to enquire the setting.
  101.  
  102. /setcmyk { 
  103.   4 copy SaveCmyk astore pop 
  104.   Comp? {               % printing a monochrome or colour composite
  105.     BwPrinter? specialscreen? and
  106.     {
  107.         % printing a special screen on a monochrome composite
  108.         % don't convert cmyk, as we'll end up with stripes or dots
  109.         % which are too small: convert the largest process colour
  110.         % component to gray. (Still not completely correct)
  111.         maxof4 1 exch sub setgray
  112.     }{
  113.       setcmykcolor 
  114.     } ifelse
  115.   }{
  116.     SpotSep? {          % if printing a spot-colour separation
  117.       blank pop         % print blank (clear or white, depending on overprint flag) 
  118.     }{                  % else printing a a process separation
  119.       4 Separation roll % bring one sep to top
  120.       dup 0 eq { 
  121.         blank pop 
  122.       }{ 
  123.         1 exch sub setgray 
  124.       } ifelse
  125.     } ifelse
  126.     pop pop pop         % clear c,m,y from stack
  127.   } ifelse
  128. } bd
  129.  
  130.  
  131. /currentcmyk {
  132.   SaveCmyk aload pop
  133. } bd
  134.  
  135.  
  136. %----- APPLYTINT -----%
  137. %
  138. % This is a lower-level colour interface
  139. % which can apply a percentage tint to a set
  140. % of CMYK percentage values.
  141. %
  142. % stack: t% c% m% y% k%
  143.  
  144. /applytint {
  145.   4{ 
  146.     4 index mul 
  147.     10000 div 
  148.     4 1 roll 
  149.   }repeat 
  150.   setcmyk 
  151.   pop 
  152. } bd
  153.  
  154.  
  155.  
  156. /blank { 
  157.   1 setgray 
  158.   /Print? OverPrint? not def 
  159.   0 0 0 0 SaveCmyk astore pop
  160. } bd
  161.  
  162.  
  163. /setgraytint {
  164.   dup 0 eq { OverPrint? not } { T } ifelse 
  165.   /Print? ed
  166.   dup /SpotTint ed
  167.   100 div 1 exch sub setgray
  168. } bd
  169.  
  170.  
  171.  
  172.  
  173. %----- COLPROCS -----%
  174. % 
  175. % Colprocs is a dictionary containing different procedures for 
  176. % setcolour to execute, depending on the type of the object 
  177. % on top of the stack when setcolour is called.
  178. % Colours is a dictionary of user-defined colours, indexed by name,
  179. % containing 2-level [ [C M Y K] spot? ] arrays with values in range 0-100
  180.  
  181. /Colprocs 4 dict def 
  182. Colprocs begin
  183.  
  184.   /arraytype {                          % [ C M Y K ] process colour mix
  185.       100 exch aload pop applytint      % apply 100% tint to the mix
  186.   } bd
  187.  
  188.   % perform spot-colour separation 
  189.   /nametype {                   % stack: tint name
  190.     dup Colours exch get        % tint name [ [ C M Y K ] Spot? ]
  191.     1 get not Comp? or {        % if not a spot colour, or printing composite
  192.       Colours exch get          % tint [ [ C M Y K ] Spot? ]
  193.       0 get aload pop           % tint c m y k
  194.       applytint 
  195.     }{                          % else spot colour & not composite printout
  196.       SpotSep? {                % if printing a spot separation...
  197.         Separation eq {            % is spot colour same as this separation?
  198.           setgraytint           % if so, set percentage tint
  199.         }{
  200.           pop blank             % wrong spot sep: print nothing
  201.         } ifelse
  202.       }{
  203.         pop pop blank           % printing a process sep: print nothing
  204.       } ifelse
  205.     } ifelse
  206.   } bd
  207.  
  208.   /integertype {                % apply percentage tint to black
  209.     0 0 0 100 applytint 
  210.   } bd
  211.  
  212.   /realtype /integertype load def
  213. end % Colprocs
  214.  
  215.  
  216.  
  217. %----- SETCOLOUR -----%
  218. %
  219. % This routine is the top-level color interface. 
  220. % It can be called in three different ways:
  221. %   number      SETCOLOUR --  % number is %black, 0=white 100=black
  222. %   [ 4-array ] SETCOLOUR --  % array contains C M Y K percentages
  223. %   number name SETCOLOUR --  % percentage tint of a named colour
  224.  
  225. /setcolour { 
  226.   /Print? T def
  227.   /SpotTint 0 def % preset spot colour tint value to zero
  228.   dup type Colprocs exch get exec 
  229. } bd
  230.  
  231.  
  232.  
  233. %----- FILL and STROKE -----%
  234. %
  235. % Winding? is a boolean which selects whether we use the winding-number fill
  236. % or the even-odd fill algorithm. Print? is a boolean used to enable or 
  237. % disable fill and stroke when overprinting separations, set by setcolour 
  238. % and blank.
  239.  
  240.  /ovp { /OverPrint? ed } bd
  241.  /wif { /Winding? T def } bd
  242.  /eof { /Winding? F def } bd
  243.  
  244.  /~stroke { Print? { stroke } if } bd
  245.  /_stroke { setcolour ~stroke } bd
  246.  /~fill { Print? { Winding? { fill } { eofill } ifelse } if } bd
  247.  /_fill { setcolour ~fill } bd
  248.  /_clip { Winding? { clip } { eoclip } ifelse } bd
  249.  
  250.  /sml { 2 div sin 1 exch div setmiterlimit } bd
  251.  /sline { setlinewidth setlinejoin setlinecap } bd
  252.  /li { Lines exch get exec } bd
  253.  /fi { Fills exch get exec } bd
  254.  
  255.  
  256. % stack: factor% angle-deg
  257. /calstroke {
  258.   /Theta ed 
  259.   /PenScale ed 
  260.   setcolour
  261.   gs currentlinewidth Theta rotate 1 1 PenScale mul 100 div scale setlinewidth ~stroke gr
  262. } bd
  263.  
  264. %----- GROUPS -----%
  265.  
  266.  /bg { gsave concat } bd % matrix BG -- 
  267.  /eg { grestore } bd 
  268.  /bgd { gsave defmat setmatrix } bd
  269.  
  270.  
  271. %----- Utility Routines -----%
  272.  
  273.  /getbox { /Top ed /Right ed /Bottom ed /Left ed } bd 
  274.  
  275.  /arcpop { arcto 4 { pop } repeat } bd
  276.  
  277.  
  278.  
  279. %----- basic shapes: ROUND BOX -----%
  280.  
  281. /shape_rbox {
  282.   /Rad ed
  283.   getbox
  284.   matrix currentmatrix
  285.     exch concat
  286.     np Left Right add 2 div Top p moveto % top centre
  287.     Right Top p Right Bottom p Rad arcpop
  288.     Right Bottom p Left Bottom p Rad arcpop
  289.     Left Bottom p Left Top p Rad arcpop
  290.     Left Top p Right Top p Rad arcpop cp 
  291.   setmatrix
  292. } bd
  293.  
  294.  
  295.  
  296. %----- basic shapes: BOX -----%
  297. /boxpath {
  298.   np Left Top m Right Top l
  299.   Right Bottom l Left Bottom l cp
  300. } bd
  301.  
  302. /shape_box {
  303.   getbox
  304.   matrix currentmatrix
  305.     exch concat boxpath
  306.   setmatrix
  307. } bd
  308.  
  309.  
  310. /clip_box { getbox boxpath eoclip } bd
  311.  
  312.  
  313.  
  314. %----- basic shapes: ELLIPSE -----%
  315.  
  316. /shape_ellipse {
  317.   getbox
  318.   matrix currentmatrix 
  319.     exch concat
  320.     % map unit circle to bounding box
  321.     Left Top translate
  322.     Right Left sub Bottom Top sub scale
  323.     np .5 .5 .5 0 360 arc cp
  324.   setmatrix
  325. } bd
  326.  
  327.  
  328. %----- IMAGES -----%
  329.  
  330. /artimage {
  331.   gs
  332.     /Bgd? exch def
  333.     /Mask? exch def
  334.     /Bits exch def 
  335.     /Height exch def
  336.     /Width exch def
  337.     getbox concat 
  338.  
  339.     Bgd? { setcolour boxpath wif ~fill } if
  340.  
  341.     Left Top translate 
  342.     Right Left sub 
  343.     Bottom Top sub scale
  344.  
  345.     Mask? {   
  346.       setcolour
  347.         Width Height true [ Width 0 0 Height 0 0 ] 
  348.         { currentfile ImageBuff readhexstring pop }
  349.       imagemask
  350.     }{  Width Height Bits [ Width 0 0 Height 0 0 ] 
  351.         { currentfile ImageBuff readhexstring pop }
  352.       image
  353.     } ifelse
  354.   gr
  355. } bd    
  356.  
  357.  
  358. /densitylookup {
  359.    densitygreys 1 sub mul cvi  % convert input grey level to integer
  360.    densityarray exch get   % lookup value (range 0..2000)
  361.    1000 div             % convert to density 0.0-2.0
  362.    neg 10 exch exp      % reflectance = 10 ^ -density
  363. } bd
  364.  
  365. /palettelookup {
  366.    palettecols 1 sub mul cvi  % convert input grey level to integer
  367.    palettearray exch get   % lookup value (range 0..1000)
  368.    1000 div             % convert to reflectance 0..1
  369. } bd
  370.  
  371. /artcolimage {
  372.   gs
  373.     /Proc exch load def 
  374.     /Height ed /Width ed
  375.     getbox concat            
  376.     Left Top translate 
  377.     Right Left sub 
  378.     Bottom Top sub scale
  379.  
  380.     /Im? T def
  381.     /Wn Width def
  382.  
  383.     Width Height 8 [ Width 0 0 Height 0 0 ] 
  384.     /Proc load 
  385.     false 3 colorimage
  386.  
  387.     gr
  388. } bd    
  389.  
  390. /img4 {
  391.  Im? {
  392.    % read one byte from the file
  393.    currentfile ImageBuff readhexstring pop 
  394.    0 get -4 bitshift
  395.  }{
  396.    ImageBuff 0 get
  397.  }ifelse
  398.  
  399.  %--- see if we're at the end of a raster line
  400.  Wn 1 sub dup 0 eq { pop Width T }{ Im? not } ifelse
  401.  /Im? ed /Wn ed
  402.  
  403.  % use result as index into palette
  404.  15 and palettearray exch get 
  405. } bd
  406.  
  407.  
  408. /img8 {
  409.    currentfile ImageBuff readhexstring pop % read one byte from the file
  410.    0 get palettearray exch get % use that as index into palette
  411. } bd
  412.  
  413. /img24 {
  414.    currentfile ImageRgbBuff readhexstring pop % read 3 bytes from the file
  415. } bd
  416.  
  417.  
  418. %----- normalised transfer function -----%
  419.  
  420. /normalise
  421. {
  422.   mark
  423.   1.0 1.0 .98 .9 .82 .68 
  424.   .56 .48 .28 .1 .06 .0                 % i [ nvalues
  425.   counttomark                           % i [ nvalues n
  426.   dup 3 add -1 roll exch                % [ nvalues input n
  427.   2 sub mul                             % [ nvalues j     % j = (n-2)*i k=floor(j)
  428.   dup floor cvi                         % [ nvalues j k
  429.   dup 3 1 roll sub                      % [ nvalues k j-k
  430.   exch dup                              % [ nvalues j-k k k
  431.   3 add index exch 2 add index dup      % [ nvalues j-k table[k+1] table[k] table[k]
  432.   4 1 roll                              % [ nvalues table[k] j-k table[k+1] table[k]
  433.   sub mul add                           % [ nvalues result    % result = ( table[k] + (j-k)*(table[k+1]-table[k]) )
  434.   counttomark 1 add 1 roll              % result [ nvalues
  435.   cleartomark                           % result
  436. } bd
  437.  
  438.  
  439. /?Negative {} bd % if printing negative, this procedure changes
  440.  
  441. /neg_transfer { 
  442.   /?Negative { 1 exch sub } bd 
  443.   {  ?Negative normalise DefTran } bind settransfer   
  444.   gs clippath 1 setgray fill gr              % then fill with white
  445.   
  446. } bd
  447.  
  448. %----- Special Effects: Flatten Path -----%
  449. %
  450. % flatten path, adjust 'setflat' until it works.
  451. % no parameters, no output. NOTE: this leaves a 'gs' in effect
  452.  
  453. /flatclip { 
  454.   currentflat
  455.   { 
  456.     gs
  457.     { flattenpath _clip } stopped not {exit}if
  458.     % ie, if not stopped due to error, exit loop
  459.     
  460.     % but if the error was other than limitcheck, stop now!
  461.     $error /errorname get /limitcheck ne { stop } if
  462.  
  463.     % if flatness gets too high, give up
  464.     currentflat 80 gt { exit } if
  465.     
  466.     % try again with flatter paths
  467.     gr currentflat 1.1 mul 1 add setflat
  468.   }loop
  469.   setflat
  470. } bd
  471.  
  472. /flatp { 
  473.   currentflat
  474.   { {flattenpath} stopped not {exit}if
  475.     currentflat 1 add setflat
  476.   }loop
  477.   setflat
  478. } bd
  479.  
  480.  
  481.  
  482. %----- Special Effects: Clip to Path -----%
  483. %
  484. % Also computes bounding box and width and height.
  485. % NOTE: flatclip saves graphics state
  486.  
  487. /clipper {
  488.   pathbbox flatclip
  489.   /Bottom ed /Right ed /Top ed /Left ed
  490.   Right Left sub /Width ed
  491.   Bottom Top sub /Height ed
  492. } bd
  493.  
  494.  
  495.  
  496.  
  497. %----- Example of a special fill routine -----%
  498.  
  499. /examplefill {
  500.   clipper %gs implied
  501.     Left Top translate
  502.     % insert commands to fill area from (0,0) to (Width,Height)
  503.     Width Height scale
  504.     % or insert commands to fill unit square
  505.   gr
  506. } bd
  507.  
  508.  
  509.  
  510. %----- Graduated Fill Support Code -----%
  511.  
  512. /GradFillDict 30 dict def
  513.  
  514. /GrayProcs [ 
  515.   {} % 0: radial
  516.   {dup mul} bind % 1: spherical 
  517.   {} % 2
  518.   {} % 3: linear
  519.   {9 mul 1 add log} bind % 4: logarithmic
  520.   {dup 1 exch sub mul 4 mul} bind % 5: cylindrical 
  521. ] def
  522.  
  523. /grayconv { % start diff ingray GRAYCONV outgray 
  524.   GrayProcs GradType get exec
  525.   mul add
  526. } bd
  527.  
  528.  
  529. /grad_common_init {
  530.   %---- initialise variables in local dictionary
  531.  
  532.   % convert start colour to CMYK and get values
  533.   setcolour 
  534.   SpotSep? not {
  535.     currentcmyk 
  536.     /StartK ed /StartY ed /StartM ed /StartC ed
  537.   } if
  538.   /StartT SpotTint def
  539.  
  540.   % do the same for the end colour
  541.   setcolour 
  542.   SpotSep? not {
  543.     currentcmyk
  544.     /EndK ed /EndY ed /EndM ed /EndC ed
  545.   } if
  546.   /EndT SpotTint def 
  547.  
  548.   % replace End with End-Start
  549.   SpotSep? not {
  550.     /EndC EndC StartC sub def
  551.     /EndM EndM StartM sub def
  552.     /EndY EndY StartY sub def
  553.     /EndK EndK StartK sub def
  554.   } if
  555.   /EndT EndT StartT sub def
  556.  
  557.  
  558.   % If printing colour separations, if the separation has
  559.   % the same tint for the start and end of the grad fill,
  560.   % treat it as a solid fill to save time.
  561.  
  562.   /SolidFill? F def
  563.  
  564.   Comp? not {           % not printing a composite - separations
  565.  
  566.     SpotSep? {          % printing a spot colour sep
  567.       StartT setgraytint
  568.       EndT 0 eq /SolidFill? ed
  569.     }{                  % printing a process sep
  570.       mark
  571.       StartC StartM StartY StartK 4 Separation roll
  572.       100 mul setgraytint % 0.22
  573.  
  574.       EndC EndM EndY EndK 4 Separation roll
  575.       0 eq /SolidFill? ed
  576.       
  577.       cleartomark
  578.     } ifelse
  579.  
  580.   } if
  581. } bd
  582.  
  583.  
  584. /grad_common_middle {
  585.   /X ed
  586.   SpotSep? {
  587.     StartT EndT X grayconv
  588.     setgraytint 
  589.   }{
  590.     StartC EndC X grayconv
  591.     StartM EndM X grayconv
  592.     StartY EndY X grayconv
  593.     StartK EndK X grayconv
  594.     setcmyk
  595.   } ifelse
  596. } bd
  597.  
  598.  
  599.  
  600.  
  601. %----- Graduated Fill: linear, logarithmic, cylindrical -----%
  602. %
  603. % parameters: angle type startcolour endcolour
  604. % each colour can be either a number (for a black tint)
  605. % a number and a name, or an array of four values: 
  606. % the same as setcolour.
  607. % type: 3=linear 4=logarithm 5=cylinder
  608.  
  609. /linfill {
  610.   GradFillDict begin
  611.   grad_common_init
  612.   /GradType ed
  613.   neg /Theta ed
  614.   /Steps GradType 3 ne { 200 } { 100 } ifelse def
  615.   % also uses Top Bottom Left Right Width Height in dictionary
  616.  
  617.   SolidFill? {
  618.  
  619.     ~fill       % separation, and fill is solid for this sep
  620.   }{
  621.  
  622.     %---- prepare to fill to clipping path 
  623.     %     and setup transformation matrix
  624.     gs
  625.       Theta rotate 
  626.       clipper %gs implied
  627.       Left Top translate
  628.       Width Height scale
  629.       1 Steps 1 add div setlinewidth
  630.  
  631.       0 1 Steps { 
  632.         dup Steps div
  633.  
  634.         grad_common_middle
  635.  
  636.         newpath
  637.           .5 add 
  638.           Steps 1 add 
  639.         div 0
  640.         moveto 
  641.  
  642.         0 1 rlineto
  643.         ~stroke
  644.  
  645.       } bind for
  646.     gr gr
  647.  
  648.   }ifelse
  649.  
  650.   end
  651. } bd
  652.  
  653.  
  654. %----- Radial/Spherical Graduated Fill -----%
  655. %
  656. % stack: type startcolour endcolour
  657. % type: 0=radial, 1=spherical
  658.  
  659. /radfill { 
  660.   GradFillDict begin
  661.   grad_common_init
  662.   /GradType ed
  663.   /Steps GradType 0 ne { 200 } { 100 } ifelse def
  664.  
  665.   SolidFill? {
  666.     ~fill       % separation, and fill is solid for this sep
  667.   }{
  668.  
  669.     clipper %gs implied
  670.       Left Right add 2 div Top Bottom add 2 div translate % centre
  671.       Width dup mul Height dup mul add sqrt 2 div dup scale % half diagonal
  672.       Steps -1 1 { % loop to fill unit circle centred on origin
  673.         /Rad exch Steps div def
  674.  
  675.         Rad grad_common_middle
  676.  
  677.         np 0 Rad moveto 0 0 Rad 0 360 arc cp
  678.         ~fill
  679.       } bind for
  680.     gr
  681.  
  682.   } ifelse
  683.  
  684.   end
  685. } bd
  686.  
  687. %----- Arrowheads -----------
  688.  
  689. /ArrowProcs [
  690. {} 
  691. {np 0 25 m 50 0 l 0 -25 l cp fill }   
  692. {np 0 25 m 50 0 l 0 -25 l cp stroke } 
  693. {np 0 0 m -10 25 l 50 0 l -10 -25 l cp fill }
  694. {np 5 0 m -5 25 l 50 0 l -10 -25 l cp stroke }
  695. {np -45 25 m 5 0 l -45 -25 l stroke }
  696. {np 0 25 m 0 -25 l stroke }
  697. {np 2 setlinejoin -50 25 m 0 0 l -50 -25 l 0 25 m 0 -25 l stroke }
  698. {np 50 25 m 0 0 l 50 -25 l stroke }
  699. {np 100 25 m 50 0 l 100 -25 l 50 0 m 0 0 l 50 25 m 0 0 l 50 -25 l stroke }
  700. {np 100 25 m 50 0 l 100 -25 l 45 -25 l 0 -5 l 0 5 l 45 25 l cp fill }
  701. ] def
  702.  
  703. % type dx dy scale x y arrow
  704.  
  705. /arrow {
  706.   gs
  707.     translate 
  708.     dup 20 lt { pop 20 } if
  709.     10 div dup scale 
  710.     exch atan 180 add rotate
  711.     0 0 10 sline
  712.     Print? {
  713.       ArrowProcs exch get exec
  714.     }{
  715.       pop
  716.     } ifelse
  717.     gr
  718. } bd
  719.  
  720.  
  721.  
  722. %----- Tiled Fill -----------
  723.  
  724. /TiDict 20 dict def
  725.  
  726. /tipos {        % pos wid
  727.   dup           % pos wid wid
  728.   3 1 roll      % wid pos wid
  729.   div floor mul % pos'
  730. } bd
  731.  
  732. /_tile { % dx dy proc scaledwidth scaledheight scale(percent) angle
  733.   TiDict begin
  734.   /TiAngle ed 
  735.   100 div /Tscale ed
  736.   Tscale div /TiHgt ed 
  737.   Tscale div /TiWid ed 
  738.   /TiProc ed
  739.   % leave just dx & dy on stack
  740.  
  741.   gs 1 setgray ~fill gr % 0.18: fill shape with white
  742.  
  743.   gs
  744.     translate TiAngle neg rotate Tscale dup scale
  745.     flatclip pathbbox /TiBottom ed /TiRight ed /TiTop ed /TiLeft ed
  746.     TiTop TiHgt tipos TiHgt TiBottom {
  747.       gs 0 exch translate
  748.         TiLeft TiWid tipos TiWid TiRight {
  749.           gs 0 translate /TiProc load 
  750.           ArtVarsDict begin exec end gr
  751.         } for
  752.       gr
  753.     }for
  754.   gr gr
  755.   end
  756. } bd
  757.  
  758.  
  759. %--------- TEXT HANDLING -----------%
  760.  
  761.  /begintext { matrix currentmatrix } bd % leave current matrix on top of stack
  762.  /endtext { setmatrix } bd     % restore saved matrix
  763.  /ntm { exch dup setmatrix exch concat } bd % newtextmatrix: matrix
  764.  /ntmd { defmat setmatrix } bd
  765.  
  766.  /textstyle { % proc
  767.   /SimpleText? F def
  768.   /filltext exch bind def
  769.  } bd
  770.  
  771.  /plaintext { % <colour & tint>
  772.   F ovp
  773.   setcolour
  774.   /SimpleText? T def
  775.  } bd
  776.  
  777. /tf { % textfont: size width fontname
  778.   findfont 3 1 roll
  779.   exch neg matrix scale makefont
  780.   setfont
  781. } bd
  782.  
  783. /txt { % x y string
  784.   3 1 roll moveto
  785.   SimpleText?
  786.   {
  787.     Print? { show } if
  788.   }{
  789.     {
  790.       currentpoint np moveto
  791.       tempstr 0 2 index put 
  792.       tempstr T charpath filltext
  793.       pop
  794.     } forall
  795.   } ifelse
  796. } bd
  797.  
  798. /filltext { } def
  799.  
  800.  
  801. /title { 
  802.   gs
  803.   moveto
  804.   {270 rotate} if
  805.   100 pt exch div dup neg scale
  806.   /Helvetica findfont 10 scalefont setfont
  807.   show
  808.   gr
  809. } bd
  810.  
  811. /regmark {
  812.   gs translate 
  813.   1 setlinewidth
  814.   np -100 0 moveto 100 0 lineto stroke
  815.   np 0 -100 moveto 0 100 lineto stroke
  816.   np 0 0 50 0 360 arc stroke
  817.   gr
  818. } bd
  819.  
  820. /cropmark {
  821.   gs 1 setlinewidth np moveto lineto stroke gr
  822. } bd
  823.  
  824. %----- Routines to rearrange font to match Windows Ansi character set -----%
  825.  
  826. /ANSI_Vec [
  827.  /grave/acute/circumflex/tilde/macron/breve/dotaccent/dieresis
  828.  /ring/cedilla/hungarumlaut/ogonek/caron/dotlessi/.notdef/.notdef
  829.  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  830.  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  831.  /space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quotesingle
  832.  /parenleft/parenright/asterisk/plus/comma/hyphen/period/slash
  833.  /zero/one/two/three/four/five/six/seven
  834.  /eight/nine/colon/semicolon/less/equal/greater/question
  835.  /at/A/B/C/D/E/F/G
  836.  /H/I/J/K/L/M/N/O
  837.  /P/Q/R/S/T/U/V/W
  838.  /X/Y/Z/bracketleft/backslash/bracketright/asciicircum/underscore
  839.  /grave/a/b/c/d/e/f/g
  840.  /h/i/j/k/l/m/n/o
  841.  /p/q/r/s/t/u/v/w
  842.  /x/y/z/braceleft/bar/braceright/asciitilde/.notdef
  843.  
  844.  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  845.  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  846.  
  847.  /.notdef/quoteleft/quoteright/quotedblleft/quotedblright/bullet/endash/emdash
  848.  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  849.   
  850.  /space/exclamdown/cent/sterling/currency/yen/brokenbar/section
  851.  /dieresis/copyright/ordfeminine/guillemotleft/logicalnot/hyphen/registered/macron
  852.  /degree/plusminus/twosuperior/threesuperior/acute/mu/paragraph/periodcentered
  853.  /cedilla/onesuperior/ordmasculine/guillemotright/onequarter/onehalf/threequarters/questiondown
  854.  /Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla
  855.  /Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex/Idieresis
  856.  /Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis/multiply 
  857.  /Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute/Thorn/germandbls
  858.  /agrave/aacute/acircumflex/atilde/adieresis/aring/ae/ccedilla
  859.  /egrave/eacute/ecircumflex/edieresis/igrave/iacute/icircumflex/idieresis
  860.  /eth/ntilde/ograve/oacute/ocircumflex/otilde/odieresis/divide 
  861.  /oslash/ugrave/uacute/ucircumflex/udieresis/yacute/thorn/ydieresis
  862. ] def
  863.  
  864.  
  865. /ReEncDict 12 dict def
  866.  
  867. /ischar {
  868.   BaseFontDict /CharStrings get exch known
  869. }bd
  870.  
  871. /mapch {
  872.   dup ischar not 
  873.   {pop /.notdef} if 
  874.   NewFont /Encoding get 3 1 roll put 
  875. }bd
  876.  
  877. /mapdegree{ 16#b0 /degree ischar {/degree}{/ring} ifelse mapch } bd
  878.  
  879. /mapbb { 16#a6 /brokenbar ischar {/brokenbar}{/bar}ifelse mapch } bd
  880.  
  881. /reencoderange {  
  882.   { dup ANSI_Vec exch get mapch } for
  883. } bd
  884.  
  885. /reencode {
  886.   0 1 15 reencoderange
  887.   144 1 255 reencoderange
  888.   16#27 /quotesingle mapch
  889.   16#60 /grave mapch
  890.   16#7C /bar mapch
  891.   mapdegree mapbb
  892. } bd
  893.  
  894. /ansifont {
  895.  ReEncDict begin
  896.    /NewFontName exch def 
  897.    /BaseFontName exch def
  898.    FontDirectory NewFontName known not
  899.    {
  900.      /BaseFontDict BaseFontName findfont def
  901.      /NewFont BaseFontDict maxlength dict def
  902.      BaseFontDict {
  903.        exch dup /FID ne { 
  904.          dup /Encoding eq { 
  905.            exch 
  906.            dup length array copy 
  907.            NewFont 3 1 roll put 
  908.          }{ 
  909.            exch 
  910.            NewFont 3 1 roll put 
  911.          }
  912.          ifelse
  913.        }{
  914.          pop pop
  915.        }ifelse
  916.      }forall
  917.      NewFont /FontName NewFontName put
  918.  
  919.      % look at the charstrings see if it has 'A' and 'Z':
  920.      % if so, remap the font. If not, leave it alone!
  921.      /A ischar /Z ischar and { reencode } if
  922.      NewFontName NewFont definefont pop
  923.    } if
  924.    NewFontName
  925.  end
  926. } bind def
  927.  
  928.  
  929. %----- Colour Separation Setup Procedures -----%
  930. %
  931. % Separation: if undefined, a composite is produced
  932. %       if numeric, a process colour separation is produced
  933. %               3=cyan, 2=magenta, 1=yellow, 0=black
  934. %       if a name of a spot colour, that spot separation is produced
  935. %
  936. % example:
  937. %       /Separation 3 def setupsep 
  938. %       /Separation /Reflex_Blue def setupsep
  939.  
  940.  
  941. /setupsep {
  942.   /Separation where {           % is 'Separation' defined?
  943.     pop
  944.     /Comp? F def                % yes: we're doing a separation.
  945.     Separation type             % is it a number?
  946.     0 type ne 
  947.     /SpotSep? ed          % if not, we're doing a spot colour.
  948.   }{
  949.     /Comp? T def                % separation not defined: doing a composite.
  950.     /SpotSep? F def
  951.   } ifelse
  952.  
  953.   statusdict begin Timeout setjobtimeout end % timeout per separation
  954.  
  955. } bd
  956.  
  957.  
  958. /setsepscreen { AngleFix add /DefScrFun load setscreen } bd
  959.  
  960.  
  961. %---------- included EPSF procedure
  962.  
  963. /include_epsf {
  964.   /Bottom ed /Left ed 
  965.   gsave concat
  966.  
  967.   % assumes that bottom-left of rect corresponds to EPSF's origin
  968.   Left Bottom translate
  969.   1000 72 div dup neg scale
  970.  
  971.   /EpsfSave save def
  972.  
  973.   /showpage { } def
  974.  
  975.   currentfile cvx stopped { % did it stop?
  976.     $error /newerror get {  % was it a new error?
  977.       handleerror           % put out an error message
  978.  
  979.       % skip to end of included file
  980.       { % loop
  981.         currentfile LineBuff readline {
  982.           (\045\045EndEPSF) eq { exit } if
  983.         }{
  984.           % can't find end marker - hit EOF?
  985.         } ifelse
  986.       } loop
  987.  
  988.     } if
  989.   }{
  990.     % didn't stop - hit EOF?
  991.   } ifelse
  992.   $error /newerror F put
  993.  
  994.   EpsfSave restore
  995.   grestore
  996. } bd
  997.  
  998. %--------------------------------- downloaded font stuff -------------------
  999.  
  1000. /BuildDict 3 dict def
  1001.  
  1002. /PointProcs[{}{closepath moveto}bind/lineto load/curveto load]def
  1003.  
  1004. /gst_char { gstn 8 bitshift add /gstn ed /gsti gsti 1 add def
  1005. gsti 3 eq {
  1006.   gstn 2047 and dup 1600 gt { 2048 sub } if
  1007.   gstn -11 bitshift 2047 and dup 1600 gt { 2048 sub } if
  1008.   gstn -22 bitshift 3 and PointProcs exch get exec
  1009.   /gstn 0 def /gsti 0 def
  1010.   } if
  1011. } bd
  1012.  
  1013. /gst_build { 
  1014. exch begin 
  1015.   BuildDict begin 
  1016.     Encoding exch get 
  1017.     /gstn 0 def /gsti 0 def
  1018.     dup Metrics exch get 0 setcharwidth 
  1019.     newpath CharStrings exch get { gst_char } forall 
  1020.     closepath fill 
  1021.   end 
  1022. end
  1023. } bd
  1024.  
  1025. /gst_fast { 
  1026. exch begin 
  1027.   Encoding exch get 
  1028.   dup Metrics exch get 0 setcharwidth 
  1029.   CharStrings exch get cvx exec 
  1030. end
  1031. } bd
  1032.  
  1033. /newgstfont {
  1034.   ReEncDict begin
  1035.   /NewFontSize ed
  1036.   /NewFontId ed
  1037.   /NewFontFast ed
  1038.   /NewFontName ed
  1039.   10 dict dup begin
  1040.     /FontMatrix [ .001 0 0 .001 0 0 ] def
  1041.     /FontType 3 def
  1042.     /FontBBox [ -400 -300 1600 1000 ] def
  1043.     /Encoding ANSI_Vec def
  1044.     /Metrics NewFontSize dict def Metrics /.notdef 0 put
  1045.     /CharStrings NewFontSize dict def CharStrings /.notdef () put
  1046.     /UniqueID 16#ff0000 NewFontId add def
  1047.     /gst_fast /gst_build NewFontFast { exch } if load /BuildChar ed pop
  1048.   end
  1049.   NewFontName exch definefont pop
  1050.   NewFontName
  1051. end
  1052. } bd
  1053.     
  1054. /NewCharDict 4 dict def
  1055.  
  1056. /newchar { 
  1057. NewCharDict begin
  1058.   /Proc ed
  1059.   /Wid ed
  1060.   /Code ed
  1061.   dup findfont begin
  1062.     Encoding Code get dup
  1063.     CharStrings exch /Proc load put
  1064.     Metrics exch Wid put
  1065.   end
  1066. end
  1067. } bd
  1068.  
  1069.  
  1070. %%EndProlog
  1071.  
  1072. %%BeginSetup
  1073.  
  1074. /ArtworkSave save def
  1075.   ArtVarsDict begin
  1076.  
  1077.   % boolean abbreviations
  1078.   /T true def /F false def
  1079.  
  1080.   % initialise default line end, join, mitre limit etc
  1081.   1 1 14 sline 10 sml
  1082.  
  1083.   % initialise misc variables
  1084.   /tempstr 1 string def         % buffer for text
  1085.   /ImageBuff 1 string def       % buffer for bitmap images
  1086.   /ImageRgbBuff 3 string def    % buffer for bitmap images
  1087.   /LineBuff 256 string def      % buffer for included epsfs
  1088.   /SimpleText? T def            % flag for fast text handling
  1089.   /Wind? T def                  % winding fill on/off
  1090.   /Print? T def                 % print flag used by colour separation stuff
  1091.   /SaveCmyk 4 array def         % current C,M,Y,K colour
  1092.   /Imat matrix identmatrix def  % an indentity matrix
  1093.   /bignum 2 31 exp 1 sub def    % for random number generator
  1094.   initcmykcolor
  1095.  
  1096.   % determine current transformation's rotation, (eg for landscape)
  1097.   % which will need to be applied to any screen angles
  1098.   /AngleFix 1 0 dtransform exch atan def
  1099.  
  1100.   % record the current screen function, angle and frequency
  1101.   currentscreen /DefScrFun exch def pop pop
  1102.   ArtProcsDict /Screens known {
  1103.     currentscreen Screens exch 0 exch put pop pop
  1104.   } if
  1105.  
  1106.   % record the current transfer function, and set up a normalised
  1107.   % transfer function followed by the default
  1108.   /DefTran currenttransfer def
  1109.   {normalise DefTran}bind settransfer
  1110.  
  1111.  
  1112. %%EndSetup
  1113.  
  1114. %%Trailer
  1115. end % ArtVarsDict
  1116. ArtworkSave restore
  1117. end % ArtProcsDict
  1118. %%EOF
  1119.  
  1120.  
  1121.